arithman007: 请问如何实现用工作簿里面表的顺序来排序呢？

蔚蓝色的云922: 这个办法替换后的格式全变了，怎么解决？

weixin_45336076: 做2013与2010有什么区别，我用2010的方法做完了，在2013上加载不了，不晓得是什么问题！你这个代码太长了，看不懂！

yivifu: 解决的关键在于计算单元格中段落的行数。 [code=VBScript] Function LineNumberInTableCell(cell As cell) Dim lineStart, lineEnd As Long With cell.Range .MoveEnd wdCharacter, -1 lineStart = .Information(wdFirstCharacterLineNumber) .Collapse wdCollapseEnd lineEnd = .Information(wdFirstCharacterLineNumber) End With LineNumberInTableCell = lineEnd - lineStart + 1 End Function [/code] 完整代码可参阅：https://blog.csdn.net/yivifu/article/details/116723124

climb_hero: 很适用。请教个问题，表格单元格只有1行就居中，多行就左对齐的VBA语句如何写，谢谢！